home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 80
/
64er_Magazin_Sonderheft_80_19xx_Markt__Technik_de_Side_B.d64
/
dokwrite util
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
35 lines
1 poke53280,0:poke53281,0
2 printchr$(14)"[147]"tab(15)"[194]amdok 2"tab(97)"von"tab(49)"[200]ans-[202]uergen [218]iethmann"
3 print"[194]itte defekte [215]rite [213]tilities [196]isk 2.0"tab(80)"in das [204]aufwerk legen"
4 print"und eine [212]aste druecken":wait203,64,64:open1,8,15,"i":open2,8,2,"#"
5 print#1,"u1:"2;0;10;5:print#1,"b-p"2;20:get#2,a$:a=asc(a$+chr$(0))
6 ifa<>18thenprint"[147]nicht auf dieser [196]isk anwendbar!":close2:close1:end
7 readn:ifn<0then9
8 print#1,"m-w"chr$(lb)chr$(05)chr$(1)chr$(n):lb=lb+1:goto7
9 on abs(n) goto10,11,14
10 read lb:goto 7
11 if si=1 thenprint#1,"u2:";2;0;t;s
12 read t: read s
13 print#1,"u1:";2;0;t;s:si=1:goto7
14 print#1,"u2:";2;0;t;s:print#1,"i"
15 close2:close1:print"[215]rite [213]tilities nun wieder"tab(80)"verwendbar!"
16 data-2,18,0,18,1,65,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
17 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
18 data8,0,0,15,252,253,5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,0,0,0,0,0,0,0,0,0
19 data0,0,0,0,0,0,0,0,0,1,8,0,0,0,0,1,0,1,0,1,0,3,224,0,0,4,137,4,0,17,255,255
20 data1,17,255,255,1,17,255,255,1,87,114,105,116,101,32,85,116,105,108,105,116
21 data105,101,115,160,160,160,87,87,160,50,65,160,160,160,160,19,8,71,69,79,83
22 data32,102,111,114,109,97,116,32,86,49,46,48,80,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
23 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
24 data0,0,0,0,0,0,0,0,0,0,0,0,0,-2,18,1,-1,0,18,9,131,1,16,68,69,83,75,32,84
25 data79,80,160,160,160,160,160,160,160,160,1,8,1,4,88,10,11,17,56,119,0,0,0
26 data131,7,11,84,69,88,84,32,71,82,65,66,66,69,82,160,160,160,160,7,3,1,6,88
27 data9,22,11,40,67,0,0,0,131,13,6,71,69,79,76,65,83,69,82,160,160,160,160,160
28 data160,160,160,13,19,1,6,88,12,7,12,0,60,0,0,0,131,15,8,71,69,79,77,69,82,71
29 data69,160,160,160,160,160,160,160,160,15,0,1,6,88,12,7,12,33,109,0,0,0,131
30 data27,9,84,101,120,116,45,77,97,110,97,103,101,114,160,160,160,160,27,17,0
31 data5,88,9,21,17,30,40,0,0,0,130,16,1,71,69,79,77,69,82,71,69,193,78,80,65,83
32 data46,160,160,19,9,0,12,86,4,7,12,0,11,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
33 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,1,71,69,79,77,69,82,71,69,193,78
34 data80,65,83,46,160,160,0,0,0,0,0,0,0,0,0,11,0,-3